home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Misc / FLM / otherfiles / english / ARexx / auto.rexx next >
OS/2 REXX Batch file  |  2000-01-01  |  794b  |  43 lines
  1. /* 
  2.    Script which proves FLM capabilites for automatic translation.
  3.  
  4.    This script translates all of the given words.
  5. */
  6.  
  7. arguments=Arg() /* Number of given arguments */
  8.  
  9. if arguments = 0 then
  10.     do
  11.         say "Give a word, please!!!"
  12.         exit
  13.     end
  14.  
  15. options results
  16. address FLM
  17.  
  18. do i=1 to words(arg(1)) /* do as long as there are words in the given string */
  19.  wort = word(Arg(1),i) /* 1., 2., 3. ... word */
  20.  say "Searching" wort
  21.  lookword wort
  22.  found  /* Found? */
  23.  if result = 0 then
  24.   do
  25.     wordanz
  26.     anz=RESULT
  27.     say anz "Words were found"
  28.     do j=1 to anz
  29.         takeword j /* Take translations */
  30.         say RESULT
  31.     end
  32.   end
  33.  else
  34.   do
  35.     say "Word is not in dictionary"
  36.     takefound
  37.     say "Next similar word is" RESULT
  38.   end
  39.   say
  40. end
  41.  
  42. exit /* Script ends */
  43.